inherited Frmtd_UnitGroupMst_Edit: TFrmtd_UnitGroupMst_Edit
  Left = 631
  Top = 272
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = #21333#20301#32452#32534#36753
  ClientHeight = 333
  ClientWidth = 564
  ExplicitWidth = 570
  ExplicitHeight = 358
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlBottom: TPanel
    Top = 273
    Width = 564
    ExplicitTop = 273
    ExplicitWidth = 505
    inherited Bevel1: TBevel
      Width = 564
      ExplicitWidth = 505
    end
    inherited btnOK: TBitBtn
      Left = 377
      ExplicitLeft = 318
    end
    inherited btnCancel: TBitBtn
      Left = 469
      ExplicitLeft = 410
    end
  end
  object cxGroupBox1: TcxGroupBox [1]
    Left = 8
    Top = 8
    TabOrder = 3
    Height = 265
    Width = 550
    object cxLabel1: TcxLabel
      Left = 4
      Top = 26
      AutoSize = False
      Caption = #21517#12288#12288#31216#65306
      Transparent = True
      Height = 16
      Width = 63
    end
    object EdtName: TcxDBTextEdit
      Left = 64
      Top = 22
      DataBinding.DataField = 'Name'
      DataBinding.DataSource = MainDataSource
      TabOrder = 1
      Width = 160
    end
    object cxLabel2: TcxLabel
      Left = 256
      Top = 26
      Caption = #32534#12288#12288#30721#65306
      Transparent = True
    end
    object cxLabel3: TcxLabel
      Left = 4
      Top = 63
      Caption = #22791#12288#12288#27880#65306
      Transparent = True
    end
    object EdtCode: TcxDBTextEdit
      Left = 313
      Top = 22
      DataBinding.DataField = 'Code'
      DataBinding.DataSource = MainDataSource
      TabOrder = 4
      Width = 160
    end
    object GrdUnitGroup: TcxGrid
      Left = 2
      Top = 88
      Width = 546
      Height = 175
      Hint = #22810#21333#20301#26102#21333#20301#27604#29575#20174#22823#21040#23567#36755#20837#12290#20363#22914' '#31665#65306'50 '#26465#65306'1 '#21253'0.1'#65292#27604#29575'1'#20026#22522#26412#21333#20301
      Align = alBottom
      PopupMenu = popunitgroup
      TabOrder = 5
      OnEnter = GrdUnitGroupEnter
      ExplicitWidth = 485
      object GrdUnitGroupDBTableView1: TcxGridDBTableView
        OnMouseDown = GrdUnitGroupDBTableView1MouseDown
        Navigator.Buttons.CustomButtons = <>
        DataController.DataSource = DS_unitgroupDtl
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        OptionsBehavior.FocusCellOnTab = True
        OptionsBehavior.FocusFirstCellOnNewRecord = True
        OptionsBehavior.GoToNextCellOnEnter = True
        OptionsBehavior.FocusCellOnCycle = True
        OptionsData.Appending = True
        OptionsView.NoDataToDisplayInfoText = #22810#21333#20301#26102#21333#20301#27604#29575#20174#22823#21040#23567#36755#20837#12290#20363#22914' '#31665#65306'50 '#26465#65306'1 '#21253'0.1'#65292#27604#29575'1'#20026#22522#26412#21333#20301
        OptionsView.GroupByBox = False
        OptionsView.Indicator = True
        Styles.Background = MainDM.bslBackGroup
        Styles.ContentEven = MainDM.bsEven
        Styles.ContentOdd = MainDM.bsOdd
        Styles.Footer = MainDM.bsTitle
        Styles.Header = MainDM.bsTitle
        Styles.Selection = MainDM.bsSelect
        object Name: TcxGridDBColumn
          Caption = #21517#31216
          DataBinding.FieldName = 'Name'
          Width = 315
        end
        object Rate: TcxGridDBColumn
          Caption = #27604#29575
          DataBinding.FieldName = 'Rate'
          Width = 155
        end
      end
      object GrdUnitGroupLevel1: TcxGridLevel
        GridView = GrdUnitGroupDBTableView1
      end
    end
    object EdtRemark: TcxDBTextEdit
      Left = 64
      Top = 58
      DataBinding.DataField = 'Remark'
      DataBinding.DataSource = MainDataSource
      TabOrder = 6
      Width = 409
    end
  end
  inherited btnPrint: TcxButton
    Left = 644
  end
  inherited edtPrint: TcxLookupComboBox
    Left = 716
  end
  inherited MainDataSource: TDataSource
    DataSet = MainDataSet
    Left = 46
    Top = 119
  end
  object DS_unitgroupDtl: TDataSource
    DataSet = Qry_unitgroupDtl
    Left = 128
    Top = 184
  end
  object Qry_unitgroupDtl: TUniQuery
    SQLInsert.Strings = (
      'Insert into TD_UNITGROUPDTL(UnitId,'
      'GroupId,'
      'Name,'
      'Rate'
      ')'
      'Values'
      '(:UnitId,'
      ':GroupId,'
      ':Name,'
      ':Rate)')
    SQLDelete.Strings = (
      
        'Delete from TD_UNITGROUPDTL where UnitId=:OLD_UnitId and GroupId' +
        '=:OLD_GroupId')
    SQLUpdate.Strings = (
      'Update TD_UNITGROUPDTL set '
      'UnitId=:UnitId,'
      'GroupId=:GroupId,'
      'Name=:Name,'
      'Rate=:Rate'
      ' where UnitId=:OLD_UnitId and GroupId=:OLD_GroupId')
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select * from td_unitgroupDtl where 1=2')
    CachedUpdates = True
    Options.PrepareUpdateSQL = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Options.AutoPrepare = True
    SpecificOptions.Strings = (
      'SQL Server.CursorUpdate=False')
    BeforeInsert = Qry_unitgroupDtlBeforeInsert
    OnNewRecord = Qry_unitgroupDtlNewRecord
    Left = 48
    Top = 184
    object Qry_unitgroupDtlUnitId: TIntegerField
      FieldName = 'UnitId'
    end
    object Qry_unitgroupDtlGroupId: TIntegerField
      FieldName = 'GroupId'
    end
    object Qry_unitgroupDtlName: TStringField
      FieldName = 'Name'
      FixedChar = True
      Size = 10
    end
    object Qry_unitgroupDtlRate: TFloatField
      FieldName = 'Rate'
    end
  end
  object popunitgroup: TPopupMenu
    Left = 313
    Top = 119
    object mitemdelete: TMenuItem
      Caption = #21024#38500#26126#32454
    end
  end
  object MainDataSet: TUniQuery
    SQLInsert.Strings = (
      'Insert into TD_UNITGROUPMST(GroupId,'
      'Code,'
      'Name,'
      'Remark'
      ')'
      'Values'
      '(:GroupId,'
      ':Code,'
      ':Name,'
      ':Remark)')
    SQLDelete.Strings = (
      'Delete from TD_UNITGROUPMST where GroupId=:OLD_GroupId')
    SQLUpdate.Strings = (
      'Update TD_UNITGROUPMST set '
      'GroupId=:GroupId,'
      'Code=:Code,'
      'Name=:Name,'
      'Remark=:Remark'
      ' where GroupId=:OLD_GroupId')
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select * from td_unitgroupmst')
    CachedUpdates = True
    Options.QueryRecCount = True
    Left = 128
    Top = 124
    object MainDataSetGroupId: TIntegerField
      FieldName = 'GroupId'
    end
    object MainDataSetCode: TStringField
      FieldName = 'Code'
    end
    object MainDataSetName: TStringField
      FieldName = 'Name'
    end
    object MainDataSetRemark: TStringField
      FieldName = 'Remark'
      Size = 50
    end
  end
end
